Unit ujfglDataModule;

interface

uses SysUtils, Classes, InvokeRegistry, Midas, SOAPMidas, SOAPDm, DBClient,
  Provider, DB, ADODB;

type
  IjfglDataModule = interface(IAppServerSOAP)
    ['{5274F426-9C2D-4B13-B50A-7C91B1698383}']
  end;

  TjfglDataModule = class(TSoapDataModule, IjfglDataModule, IAppServerSOAP, IAppServer)
    qry_Temp: TADOQuery;
    ADOConnection1: TADOConnection;
    dsp_Query: TDataSetProvider;
    cds_Query: TClientDataSet;
  private
  
  public
  
  end;

implementation

{$R *.DFM}

procedure TjfglDataModuleCreateInstance(out obj: TObject);
begin
 obj := TjfglDataModule.Create(nil);
end;

initialization
   InvRegistry.RegisterInvokableClass(TjfglDataModule, TjfglDataModuleCreateInstance);
   InvRegistry.RegisterInterface(TypeInfo(IjfglDataModule));
end.
